home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
pvap322a
/
pvapvan.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
34KB
|
1,139 lines
/************************************************************************
* PC-VANでの処理設定 *
************************************************************************/
/* PC-VANでの処理の作成(planeのボタン) */
%pcvan{
var a[26];
var b[12];
var c[8];
var n[2];
var onevan[100];
n:=1;
d:=1;
loop({
onevan:=@getline(PCVAN,n,1);
case (onevan={\n},
{Yes},,
{No},{
case (@nth(onevan,1,{/}),
{BBS}, {b:={BBS }},
{BBS検索}, {b:={検索}},
{BBSタイトル},{b:={タイトル}},
{SIG}, {b:={SIG }},
{SIG検索}, {b:={検索}},
{SIGタイトル},{b:={タイトル}},
{CUG}, {b:={CUG }},
{CUG検索}, {b:={検索}},
{CUGタイトル},{b:={タイトル}},
, {b:=@nth(onevan,1,{/})});
%jumpcode @nth(onevan,3,{/});
%day @head(@nth(@nth(onevan,2,{/}),1,{>}),{,});
case (8-@nochar(jumpcode),
0,{c:=jumpcode}, 1,{c:=jumpcode|{ }},
2,{c:=jumpcode|{ }}, 3,{c:=jumpcode|{ }},
4,{c:=jumpcode|{ }}, 5,{c:=jumpcode|{ }},
6,{c:=jumpcode|{ }},7,{c:=jumpcode|{ }},
8,{c:=jumpcode|{ }});
a:=b|{:}|c|{:}|
@case(day,{未設定},{im({未設定})},,
{im(day|{ })});
case (@nochar(n)=1,
{Yes}, {a:={0}|n|{:}|a},
{No}, {a:=n|{:}|a});
case (d, 1,{PcVan:=PcVan|{s /}|a;d:=2;NOLINE:=NOLINE+1},
2,{PcVan:=PcVan|{/}|a|{\n};d:=1});
case (@getline(PCVAN,n+1,1),
{},{case(d,2,{PcVan:=PcVan|{\n}});im({No})},,
{n:=n+1;im({Yes})});
})});
};
%pcvan3{
var a[26];
var b[12];
var c[8];
var f[2];
var n[2];
var onevan[100];
n:=1;
f:=1;
loop({
onevan:=@getline(PCVAN3,n,1);
case (onevan={\n},
{Yes},,
{No},{
case (@nth(onevan,1,{/}),
{BBS}, {b:={BBS }},
{BBS検索}, {b:={検索}},
{BBSタイトル},{b:={タイトル}},
{SIG}, {b:={SIG }},
{SIG検索}, {b:={検索}},
{SIGタイトル},{b:={タイトル}},
{CUG}, {b:={CUG }},
{CUG検索}, {b:={検索}},
{CUGタイトル},{b:={タイトル}},
, {b:=@nth(onevan,1,{/})});
%jumpcode @nth(onevan,3,{/});
%day @head(@nth(@nth(onevan,2,{/}),1,{>}),{,});
case (8-@nochar(jumpcode),
0,{c:=jumpcode}, 1,{c:=jumpcode|{ }},
2,{c:=jumpcode|{ }}, 3,{c:=jumpcode|{ }},
4,{c:=jumpcode|{ }}, 5,{c:=jumpcode|{ }},
6,{c:=jumpcode|{ }},7,{c:=jumpcode|{ }},
8,{c:=jumpcode|{ }});
a:=b|{:}|c|{:}|
@case(day,{未設定},{im({未設定})},,
{im(day|{ })});
case (@nochar(n)=1,
{Yes}, {a:={0}|n|{:}|a},
{No}, {a:=n|{:}|a});
case (f, 1,{PcVan3:=PcVan3|{s /}|a;f:=2;NOLINE:=NOLINE+1},
2,{PcVan3:=PcVan3|{/}|a|{\n};f:=1});
case (@getline(PCVAN3,n+1,1),
{},{case(f,2,{PcVan3:=PcVan3|{\n}});im({No})},,
{n:=n+1;im({Yes})});
})});
};
%pcvan2{
var a[26];
var b[12];
var c[8];
var e[2];
var n[2];
var onevan[100];
n:=1;
e:=1;
loop({
onevan:=@getline(PCVAN2,n,1);
case (onevan={\n},
{Yes},,
{No},{
case (@nth(onevan,1,{/}),
{BBS}, {b:={BBS }},
{BBS検索}, {b:={検索}},
{BBSタイトル},{b:={タイトル}},
{SIG}, {b:={SIG }},
{SIG検索}, {b:={検索}},
{SIGタイトル},{b:={タイトル}},
{CUG}, {b:={CUG }},
{CUG検索}, {b:={検索}},
{CUGタイトル},{b:={タイトル}},
, {b:=@nth(onevan,1,{/})});
%jumpcode @nth(onevan,3,{/});
%day @head(@nth(@nth(onevan,2,{/}),1,{>}),{,});
case (8-@nochar(jumpcode),
0,{c:=jumpcode}, 1,{c:=jumpcode|{ }},
2,{c:=jumpcode|{ }}, 3,{c:=jumpcode|{ }},
4,{c:=jumpcode|{ }}, 5,{c:=jumpcode|{ }},
6,{c:=jumpcode|{ }},7,{c:=jumpcode|{ }},
8,{c:=jumpcode|{ }});
a:=b|{:}|c|{:}|
@case(day,{未設定},{im({未設定})},,
{im(day|{ })});
case (@nochar(n)=1,
{Yes}, {a:={0}|n|{:}|a},
{No}, {a:=n|{:}|a});
case (e, 1,{PcVan2:=PcVan2|{s /}|a;e:=2;NOLINE3:=NOLINE3+1},
2,{PcVan2:=PcVan2|{/}|a|{\n};e:=1});
case (@getline(PCVAN2,n+1,1),
{},{case(e,2,{PcVan2:=PcVan2|{\n}});im({No})},,
{n:=n+1;im({Yes})});
})});
};
/* PC-VANでの処理実行日の指定 */
%date{
footnote({実行する日を指定して下さい});
select({実行する日を指定して下さい}|{ 現在は }|@d2|{ です},
99999,{im(d1)},
{ 毎 日 }, {im({毎日})},
{ 奇数日 }, {im({奇数})},
{ 偶数日 }, {im({偶数})},
{ 日 曜 }, {im({日曜})},
{ 月 曜 }, {im({月曜})},
{ 火 曜 }, {im({火曜})},
{ 水 曜 }, {im({水曜})},
{ 木 曜 }, {im({木曜})},
{ 金 曜 }, {im({金曜})},
{ 土 曜 }, {im({土曜})},
{毎月 1日}, {im({01日})},
{毎月05日}, {im({05日})},
{毎月10日}, {im({10日})},
{毎月15日}, {im({15日})},
{毎月20日}, {im({20日})},
{毎月25日}, {im({25日})},
{毎月30日}, {im({30日})},
{複数指定}, {SNDMSG({nyuryo_f.snd});
%dat @input({実行する日を指定して下さい\n}|
{ 「,」で区切って複数指定します\n}|
{ 日付で指定する場合は半角の二桁の}|
{数字で指定して下さい\n}|
{ (例)火,木,日,01,13,30},,
@body(d1,{,},{,}));
im({複数,}|dat|{,終わり})},
{設定なし},{im({未定})});
};
/* 実行日表示用 */
%d2 {case (d1,
{毎日}, {im({毎 日})}, {奇数},{im({奇数日})},
{偶数}, {im({偶数日})}, {日曜},{im({日 曜})},
{月曜}, {im({月 曜})}, {火曜},{im({火 曜})},
{水曜}, {im({水 曜})}, {木曜},{im({木 曜})},
{金曜}, {im({金 曜})}, {土曜},{im({土 曜})},
{01日}, {im({毎月 1日})},{05日},{im({毎月 5日})},
{10日}, {im({毎月10日})},{15日},{im({毎月15日})},
{20日}, {im({毎月20日})},{25日},{im({毎月25日})},
{30日}, {im({毎月30日})},{未定},{im({設定なし})},
{未設定},{im({未設定})},,{im({複数指定})})};
/* PC-VANでの処理実行時刻の指定 */
%time{
footnote({実行する時刻を指定して下さい});
select({実行する時刻を指定して下さい}|{ 現在は }|@t2|{ です},
99999,{im(t1)},
{ 終 日 }, {im({終日,終わり})},
{04:00-09:59}, {im({朝,終わり})},
{10:00-17:59}, {im({昼間,終わり})},
{18:00-21:59}, {im({夜1,終わり})},
{22:00-00:59}, {im({夜2,終わり})},
{01:00-03:59}, {im({夜中,終わり})},
{ 複数 指定 }, {var dat[100];
time2;
im(dat)},
{ 設定 なし },{im({未定,終わり})});
};
%time2{
display({現在の指定状況\n});
loop({
SNDMSG({erande_f.snd});
select({実行時間帯を指定して下さい 複数指定},99999,{dat:=t1},
{04:00-09:59},
{dat:=dat|{朝,};
display({ 04:00-09:59\n});im({Yes})},
{10:00-17:59},
{dat:=dat|{昼間,};
display({ 10:00-17:59\n});im({Yes})},
{18:00-21:59},
{dat:=dat|{夜1,};
display({ 18:00-21:59\n});im({Yes})},
{22:00-00:59},
{dat:=dat|{夜2,};
display({ 22:00-00:59\n});im({Yes})},
{01:00-03:59},
{dat:=dat|{夜中,};
display({ 01:00-03:59\n});im({Yes})},
{ 指定 終了 },
{dat:=dat|{終わり};im({No})});
});
};
/* 実行時刻表示用 */
%t2 {case(t1,
{終日,終わり},{im({終 日})},
{朝,終わり} ,{im({04:00-09:59})},
{昼間,終わり},{im({10:00-17:59})},
{夜1,終わり},{im({18:00-21:59})},
{夜2,終わり},{im({22:00-00:59})},
{夜中,終わり},{im({01:00-03:59})},
{未定,終わり},{im({設定なし})},
{未設定},{im({未設定})},,{im({複数指定})})};
/* 設定情報をファイルに保存する */
%writeVAN{
dispoff({Yes});
setcdir(DIR1);
command({copy }|VANFILE|{ PVAPVAN.BAK});
delfile(VANFILE);
dispoff({No});
write (VANFILE,
{PCVAN :=}|@xc({7b})|PCVAN |@xc({7d})|{;\n});
SETFILE2:={標準設定};
};
/* 設定情報を元に戻す */
%CANCEL{
SNDMSG({kaknin_f.snd});
footnote({本当に元に戻してもいいですか?});
select({本当に元に戻してもいいですか?},99999,,
{ はい },{case(@filechk(VANFILE),
{Yes}, {setcdir(DIR1);
#PVAPVAN.SET;
SETFILE2:={標準設定};})},
{ いいえ },);
};
/* SIGの指定 */
%setSIG{
[n]
var sig[8];
var d1[40];
var t1[100];
var mes[50];
var kai[50];
var osl[20];
var lib[20];
var olt[3];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
sig:= @nth(@getline(PCVAN,n,1),3,{/});
mes:= @nth(@getline(PCVAN,n,1),4,{/});
kai:= @nth(@getline(PCVAN,n,1),5,{/});
osl:= @nth(@getline(PCVAN,n,1),6,{/});
lib:= @nth(@getline(PCVAN,n,1),7,{/});
loop({
olt:= @case (@nth(@getline(PCVAN,n,1),8,{/}),
{Yes},{im({ 1})},,{im({ 2})});
SNDMSG({nyuryo_f.snd});
footnote({SIGでの処理を設定して下さい});
%set @plane( {cSIGでの処理を設定して下さい\n}|
{tジャンプコード /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tフォーラム /\n}|
{t会議室 /\n}|
{c 指定されたフォーラムと会議室の未読を読みます\n}|
{c 「,」で区切って複数指定が可能です\n}|
{tOSL /\n}|
{tライブラリ /\n}|
{c 指定されたOSLとライブラリのリストを取得します\n}|
{c 「,」で区切って複数指定が可能です\n}|
{rOLT広場 /見る /見ない\n}|
{s/ 設定 / 削除 / 取消 \n},
sig,mes,kai,osl,lib,olt);
sig:= @head(@getline(set,1,1),{\n});
mes:= @head(@getline(set,4,1),{\n});
kai:= @head(@getline(set,5,1),{\n});
osl:= @head(@getline(set,6,1),{\n});
lib:= @head(@getline(set,7,1),{\n});
olt:= @case (@head(@getline(set,8,1),{\n}),
{ 1},{im({Yes})},{ 2},{im({No})});
%sel @head(@getline(set,2,1),{\n});
%sel2 @head(@getline(set,3,1),{\n});
%ok @head(@getline(set,9,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{SIG}|{/}|d1|{>}|t1|{/}|
sig|{/}|mes|{/}|kai|{/}|osl|{/}|
lib|{/}|olt|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* SIG(検索して読む)の指定 */
%setSIGK{
[n]
var sig[8];
var d1[40];
var t1[100];
var mes[50];
var keywordm[100];
var kai[50];
var keywordk[100];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
sig:= @nth(@getline(PCVAN,n,1),3,{/});
mes:= @nth(@getline(PCVAN,n,1),4,{/});
keywordm:=@nth(@getline(PCVAN,n,1),5,{/});
kai:= @nth(@getline(PCVAN,n,1),6,{/});
keywordk:=@nth(@getline(PCVAN,n,1),7,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({SIGでの処理を設定して下さい});
%set @plane( {cSIGでの処理を設定して下さい\n}|
{tジャンプコード /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tフォーラム /\n}|
{t 検索文字列 /\n}|
{t会議室 /\n}|
{t 検索文字列 /\n}|
{s/ 設定 / 削除 / 取消 / 説明 \n},
sig,mes,keywordm,kai,keywordk);
sig:= @head(@getline(set,1,1),{\n});
mes:= @head(@getline(set,4,1),{\n});
keywordm:=@head(@getline(set,5,1),{\n});
kai:= @head(@getline(set,6,1),{\n});
keywordk:=@head(@getline(set,7,1),{\n});
%sel @head(@getline(set,2,1),{\n});
%sel2 @head(@getline(set,3,1),{\n});
%ok @head(@getline(set,8,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{SIG検索}|{/}|d1|{>}|t1|{/}|
sig|{/}|mes|{/}|keywordm|{/}|
kai|{/}|keywordk|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},
{ 4}, {SNDMSG({kaknin_f.snd});INFO;im({Yes})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* 検索して読むの設定の説明 */
%INFO{
plane( {c 未読タイトルに検索文字列が含まれている場合、 その\n}|
{c発言を読む機能です。\n}|
{c ボード番号(フォーラム・会議室・掲示板)は「,」で区\n}|
{c切って複数指定します。\n}|
{c 検索文字列は「,」で区切って1ボードにつき3つまで指\n}|
{c定可能です。ボードとボードは「|」で区切ります。\n}|
{c\n}|
{c(例)\n}|
{cフォーラム [1,5 ]\n}|
{c 検索文字列 [タウンズ,マーティー|GAME>,ゲーム> ]\n}|
{c\n}|
{s/ 確認 \n});
};
/* SIG(未読タイトルの取得)の指定 */
%setSIGT{
[n]
var sig[8];
var d1[40];
var t1[100];
var mes[50];
var kai[50];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
sig:= @nth(@getline(PCVAN,n,1),3,{/});
mes:= @nth(@getline(PCVAN,n,1),4,{/});
kai:= @nth(@getline(PCVAN,n,1),5,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({SIGでの処理を設定して下さい});
%set @plane( {cSIGでの処理を設定して下さい\n}|
{tジャンプコード /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tフォーラム /\n}|
{t会議室 /\n}|
{s/ 設定 / 削除 / 取消 / 説明 \n},
sig,mes,kai);
sig:= @head(@getline(set,1,1),{\n});
mes:= @head(@getline(set,4,1),{\n});
kai:= @head(@getline(set,5,1),{\n});
%sel @head(@getline(set,2,1),{\n});
%sel2 @head(@getline(set,3,1),{\n});
%ok @head(@getline(set,6,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{SIGタイトル}|{/}|d1|{>}|t1|{/}|
sig|{/}|mes|{/}|kai|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},
{ 4}, {SNDMSG({kaknin_f.snd});INFO2;im({Yes})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* 未読タイトル取得の設定の説明 */
%INFO2{
plane( {c 未読タイトルを取得し、回線切断後それを元にダウンロ\n}|
{cードする発言を指定し、再び回線接続して、指定した発言\n}|
{cをダウンロードする機能です。\n}|
{c\n}|
{c(注意)\n}|
{c 必ず、ユーザー設定で、未読タイトルを保存するディレ\n}|
{cクトリを指定して下さい。なお、通信前にそのディレクト\n}|
{cリに存在するファイルは全て削除されますので注意して下\n}|
{cさい。\n}|
{c\n}|
{s/ 確認 \n});
};
/* BBSの指定 */
%setBBS{
[n]
var bbs[8];
var d1[40];
var t1[100];
var mes[50];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
bbs:= @nth(@getline(PCVAN,n,1),3,{/});
mes:= @nth(@getline(PCVAN,n,1),4,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({BBSでの処理を設定して下さい});
%set @plane( {cBBSでの処理を設定して下さい\n}|
{tジャンルメニュー名 /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tボード番号 /\n}|
{c 指定されたボード番号の未読を読みます\n}|
{c 「,」で区切って複数指定が可能です\n}|
{s/ 設定 / 削除 / 取消 \n},
bbs,mes);
bbs:= @head(@getline(set,1,1),{\n});
mes:= @head(@getline(set,4,1),{\n});
%sel @head(@getline(set,2,1),{\n});
%sel2 @head(@getline(set,3,1),{\n});
%ok @head(@getline(set,5,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{BBS}|{/}|d1|{>}|t1|{/}|
bbs|{/}|mes|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* BBS(検索して読む)の指定 */
%setBBSK{
[n]
var bbs[8];
var d1[40];
var t1[100];
var mes[50];
var keywordm[100];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
bbs:= @nth(@getline(PCVAN,n,1),3,{/});
mes:= @nth(@getline(PCVAN,n,1),4,{/});
keywordm:=@nth(@getline(PCVAN,n,1),5,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({BBSでの処理を設定して下さい});
%set @plane( {cBBSでの処理を設定して下さい\n}|
{tジャンルメニュー名 /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tボード番号 /\n}|
{t 検索文字列 /\n}|
{s/ 設定 / 削除 / 取消 / 説明 \n},
bbs,mes,keywordm);
bbs:= @head(@getline(set,1,1),{\n});
mes:= @head(@getline(set,4,1),{\n});
keywordm:=@head(@getline(set,5,1),{\n});
%sel @head(@getline(set,2,1),{\n});
%sel2 @head(@getline(set,3,1),{\n});
%ok @head(@getline(set,6,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{BBS検索}|{/}|d1|{>}|t1|{/}|
bbs|{/}|mes|{/}|keywordm|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},
{ 4}, {SNDMSG({kaknin_f.snd});INFO;im({Yes})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* BBS(未読タイトルの取得)の指定 */
%setBBST{
[n]
var bbs[8];
var d1[40];
var t1[100];
var mes[50];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
bbs:= @nth(@getline(PCVAN,n,1),3,{/});
mes:= @nth(@getline(PCVAN,n,1),4,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({BBSでの処理を設定して下さい});
%set @plane( {cBBSでの処理を設定して下さい\n}|
{tジャンルメニュー名 /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tボード番号 /\n}|
{s/ 設定 / 削除 / 取消 / 説明 \n},
bbs,mes);
bbs:= @head(@getline(set,1,1),{\n});
mes:= @head(@getline(set,4,1),{\n});
%sel @head(@getline(set,2,1),{\n});
%sel2 @head(@getline(set,3,1),{\n});
%ok @head(@getline(set,5,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{BBSタイトル}|{/}|d1|{>}|t1|{/}|
bbs|{/}|mes|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},
{ 4}, {SNDMSG({kaknin_f.snd});INFO2;im({Yes})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* CUGの指定 */
%setCUG{
[n]
var cug[8];
var pass[8];
var cugmain1[2];
var cugmain2[2];
var cugmain3[2];
var cugmain4[2];
var cugmain5[2];
var d1[40];
var t1[100];
var mes[50];
var kaigi[50];
var osl[20];
var lib[20];
var olt[3];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
cug:= @nth(@getline(PCVAN,n,1),3,{/});
pass:= @nth(@getline(PCVAN,n,1),4,{/});
cugmain1:=@nth(@getline(PCVAN,n,1),5,{/});
mes:= @nth(@getline(PCVAN,n,1),6,{/});
cugmain2:=@nth(@getline(PCVAN,n,1),7,{/});
kaigi:= @nth(@getline(PCVAN,n,1),8,{/});
cugmain3:=@nth(@getline(PCVAN,n,1),9,{/});
osl:= @nth(@getline(PCVAN,n,1),10,{/});
cugmain4:=@nth(@getline(PCVAN,n,1),11,{/});
lib:= @nth(@getline(PCVAN,n,1),12,{/});
cugmain5:=@nth(@getline(PCVAN,n,1),13,{/});
loop({
olt:= @case (@nth(@getline(PCVAN,n,1),14,{/}),
{Yes},{im({ 1})},,{im({ 2})});
SNDMSG({nyuryo_f.snd});
footnote({CUGでの処理を設定して下さい});
%set @plane( {tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tメインメニュー番号 /12\n}|
{t 掲示板 /\n}|
{tメインメニュー番号 /12\n}|
{t 会議室 /\n}|
{tメインメニュー番号 /12\n}|
{t OSL /\n}|
{tメインメニュー番号 /12\n}|
{t ライブラリ /\n}|
{tメインメニュー番号 /12\n}|
{r OLT広場 /見る /見ない\n}|
{s/ 設定 / 削除 / 取消 \n},
cug,pass,cugmain1,mes,cugmain2,
kaigi,cugmain3,osl,cugmain4,lib,cugmain5,olt);
cug:= @head(@getline(set,1,1),{\n});
pass:= @head(@getline(set,2,1),{\n});
cugmain1:=@head(@getline(set,5,1),{\n});
mes:= @head(@getline(set,6,1),{\n});
cugmain2:=@head(@getline(set,7,1),{\n});
kaigi:= @head(@getline(set,8,1),{\n});
cugmain3:=@head(@getline(set,9,1),{\n});
osl:= @head(@getline(set,10,1),{\n});
cugmain4:=@head(@getline(set,11,1),{\n});
lib:= @head(@getline(set,12,1),{\n});
cugmain4:=@head(@getline(set,13,1),{\n});
olt:= @case (@head(@getline(set,14,1),{\n}),
{Yes},{im({ 1})},,{im({ 2})});
%sel @head(@getline(set,3,1),{\n});
%sel2 @head(@getline(set,4,1),{\n});
%ok @head(@getline(set,15,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{CUG}|{/}|d1|{>}|t1|{/}|
cug|{/}|pass|{/}|cugmain1|{/}|mes|{/}|
cugmain2|{/}|kaigi|{/}|
cugmain3|{/}|osl|{/}|cugmain4|{/}|lib|{/}|
cugmain5|{/}|olt|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* CUG(検索して読む)の指定 */
%setCUGK{
[n]
var cug[8];
var pass[8];
var d1[40];
var t1[100];
var cugmain1[2];
var mes[50];
var keywordm[100];
var cugmain2[2];
var kai[50];
var keywordk[100];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
cug:= @nth(@getline(PCVAN,n,1),3,{/});
pass:= @nth(@getline(PCVAN,n,1),4,{/});
cugmain1:=@nth(@getline(PCVAN,n,1),5,{/});
mes:= @nth(@getline(PCVAN,n,1),6,{/});
keywordm:=@nth(@getline(PCVAN,n,1),7,{/});
cugmain2:=@nth(@getline(PCVAN,n,1),8,{/});
kai:= @nth(@getline(PCVAN,n,1),9,{/});
keywordk:=@nth(@getline(PCVAN,n,1),10,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({CUGでの処理を設定して下さい});
%set @plane( {cCUGでの処理を設定して下さい\n}|
{tCUG名 /12345678\n}|
{tバスワード /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tメインメニュー番号 /12\n}|
{t 掲示板 /\n}|
{t 検索文字列 /\n}|
{tメインメニュー番号 /12\n}|
{t 会議室 /\n}|
{t 検索文字列 /\n}|
{s/ 設定 / 削除 / 取消 / 説明 \n},
cug,pass,cugmain1,mes,keywordm,cugmain2,kai,keywordk);
cug:= @head(@getline(set,1,1),{\n});
pass:= @head(@getline(set,2,1),{\n});
cugmain1:=@head(@getline(set,5,1),{\n});
mes:= @head(@getline(set,6,1),{\n});
keywordm:=@head(@getline(set,7,1),{\n});
cugmain2:=@head(@getline(set,8,1),{\n});
kai:= @head(@getline(set,9,1),{\n});
keywordk:=@head(@getline(set,10,1),{\n});
%sel @head(@getline(set,3,1),{\n});
%sel2 @head(@getline(set,4,1),{\n});
%ok @head(@getline(set,11,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{CUG検索}|{/}|d1|{>}|t1|{/}|
cug|{/}|pass|{/}|
cugmain1|{/}|mes|{/}|keywordm|{/}|
cugmain2|{/}|kai|{/}|keywordk|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},
{ 4}, {SNDMSG({kaknin_f.snd});INFO;im({Yes})},
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* CUG(未読タイトルの取得)の指定 */
%setCUGT{
[n]
var cug[8];
var pass[8];
var cugmain1[2];
var cugmain2[2];
var d1[40];
var t1[100];
var mes[50];
var kaigi[50];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
cug:= @nth(@getline(PCVAN,n,1),3,{/});
pass:= @nth(@getline(PCVAN,n,1),4,{/});
cugmain1:=@nth(@getline(PCVAN,n,1),5,{/});
mes:= @nth(@getline(PCVAN,n,1),6,{/});
cugmain2:=@nth(@getline(PCVAN,n,1),7,{/});
kaigi:= @nth(@getline(PCVAN,n,1),8,{/});
loop({
SNDMSG({nyuryo_f.snd});
footnote({CUGでの処理を設定して下さい});
%set @plane( {cCUGでの処理を設定して下さい\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{c巡回日 }|@d2|{\n}|
{s / 設定 \n}|
{c巡回時刻 }|@t2|{\n}|
{s / 変更 \n}|
{tメインメニュー番号 /12\n}|
{t 掲示板 /\n}|
{tメインメニュー番号 /12\n}|
{t 会議室 /\n}|
{s/ 設定 / 削除 / 取消 / 説明 \n},
cug,pass,cugmain1,mes,cugmain2,kaigi);
cug:= @head(@getline(set,1,1),{\n});
pass:= @head(@getline(set,2,1),{\n});
cugmain1:=@head(@getline(set,5,1),{\n});
mes:= @head(@getline(set,6,1),{\n});
cugmain2:=@head(@getline(set,7,1),{\n});
kaigi:= @head(@getline(set,8,1),{\n});
%sel @head(@getline(set,3,1),{\n});
%sel2 @head(@getline(set,4,1),{\n});
%ok @head(@getline(set,9,1),{\n});
case (sel==1,{Yes}, {SNDMSG({erande_f.snd});
d1:= @date});
case (sel2==1,{Yes}, {SNDMSG({erande_f.snd});
t1:= @time});
case (ok,
{ 1}, {PCVAN:=@getline(PCVAN,1,n-1)|
{CUGタイトル}|{/}|d1|{>}|t1|{/}|
cug|{/}|pass|{/}|cugmain1|{/}|mes|{/}|
cugmain2|{/}|kaigi|{/\n}|
@getline(PCVAN,n+1);
im({No})},
{ 2}, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1);
im({No})},
{ 3}, {im({No})},
{ 4}, {SNDMSG({kaknin_f.snd});INFO2;im({Yes})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
};
/* OLT広場の指定 */
%setOLT{
[n]
var d1[40];
var t1[100];
%PCVAN1 @getline(PCVAN,n,1);
d1:= @case(@nth(@nth(PCVAN1,2,{/}),1,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),1,{>}))});
t1:= @case(@nth(@nth(PCVAN1,2,{/}),2,{>}),{},{im({未設定})},
,{im(@nth(@nth(PCVAN1,2,{/}),2,{>}))});
SNDMSG({erande_f.snd});
d1:= @date;
SNDMSG({erande_f.snd});
t1:= @time;
PCVAN:=@getline(PCVAN,1,n-1)|
{OLT広場}|{/}|d1|{>}|t1|{//\n}|
@getline(PCVAN,n+1);
};
/* PC-VANで行う処理を設定する */
%setVAN{
[n]
SNDMSG({erande_f.snd});
footnote({処理を選択して下さい});
select({処理を選択して下さい},99999,,
{ 変 更 }, {setVAN1(n)},
{ 削 除 }, {PCVAN:=@getline(PCVAN,1,n-1)|
@getline(PCVAN,n+1)},
{ 中 止 },);
};
%setVAN1{
[n]
case (@nth(@getline(PCVAN,n,1),1,{/}),
{SIG}, {setSIG(n)},
{SIG検索}, {setSIGK(n)},
{SIGタイトル},{setSIGT(n)},
{BBS}, {setBBS(n)},
{BBS検索}, {setBBSK(n)},
{BBSタイトル},{setBBST(n)},
{CUG}, {setCUG(n)},
{CUG検索}, {setCUGK(n)},
{CUGタイトル},{setCUGT(n)},
{OLT広場}, {setOLT(n)},,
{SNDMSG({erande_f.snd});
footnote({PC-VANで行う処理を}|
{指定して下さい});
select({PC-VANで行う処理を指定して下さい},
99999,,
{ SIG },{setSIG(n)},
{ SIG(検索) },{setSIGK(n)},
{ SIG(タイトル) },{setSIGT(n)},
{ BBS },{setBBS(n)},
{ BBS(検索) },{setBBSK(n)},
{ BBS(タイトル) },{setBBST(n)},
{ CUG },{setCUG(n)},
{ CUG(検索) },{setCUGK(n)},
{ CUG(タイトル) },{setCUGT(n)},
{ OLT広場 },{setOLT(n)},
{ 終 了 },);});
};
/* PC-VANで行う処理を並べ変える */
%renVAN{
var PCVAN2[3074];
var PCVAN3[3074];
PCVAN2:={};
PCVAN3:=PCVAN;
%renum{
[n]
case (PCVAN2,
{}, {PCVAN2:=@getline(PCVAN3,n,1)},,
{PCVAN2:=PCVAN2|@getline(PCVAN3,n,1)});
PCVAN3:=@getline(PCVAN3,1,n-1)|@getline(PCVAN3,n+1);
};
%cancel{
[n]
case (PCVAN3,
{}, {PCVAN3:=@getline(PCVAN2,n,1)},,
{PCVAN3:=PCVAN3|@getline(PCVAN2,n,1)});
PCVAN2:=@getline(PCVAN2,1,n-1)|@getline(PCVAN2,n+1);
};
loop({
NOLINE:=0;
NOLINE3:=0;
NOLINE2:=1;
PcVan3:={};
PcVan2:={};
check:={No};
SNDMSG({erande_f.snd});
case(PCVAN3={},{No},{pcvan3});
case(PCVAN2={},{No},{pcvan2});
footnote({PC-VANで行う順序を指定して下さい});
%a @plane(
{cPC-VANで行う順序を指定して下さい\n}|
{c 未 指 定\n}|
PcVan3|
{c\n}|
{c 指 定 済\n}|
PcVan2|
{c\n}|
{s/ 全 取 消 / 指 定 終 了 \n});
case (PcVan3={},
{No},
{loop({
case (@head(@getline(a,NOLINE2,1),{\n}),
{ 1}, {renum(NOLINE2*2-1);
check:={Yes};im({No})},
{ 2}, {renum(NOLINE2*2);
check:={Yes};im({No})},,
{case (NOLINE2,
NOLINE, {im({No})},,
{NOLINE2:=NOLINE2+1;
im({Yes})})});
})});
NOLINE2:=NOLINE+1;
case (PcVan2={},
{No},
{loop({
case (@head(@getline(a,NOLINE2,1),{\n}),
{ 1}, {cancel((NOLINE2-NOLINE)*2-1);
check:={Yes};im({No})},
{ 2}, {cancel((NOLINE2-NOLINE)*2);
check:={Yes};im({No})},,
{case (NOLINE2,
NOLINE+NOLINE3,{im({No})},,
{NOLINE2:=NOLINE2+1;
im({Yes})})});
})});
%ok @head(@getline(a,NOLINE+NOLINE3+1,1),{\n});
case(ok,{ 2}, {PCVAN:=PCVAN2;im({No})},
{ 1}, {PCVAN2:={};PCVAN3:=PCVAN;im({Yes})},,
{case (ok={ 0}&&check={No},
{Yes},{im({No})},{No},{im({Yes})})});
});
};
/* 設定情報をファイルに保存する */
%SAVE{
var newfile[64];
SNDMSG({nyuryo_f.snd});
footnote({設定を保存するファイルを指定して下さい});
newfile:=@filesel({VAN});
case (newfile<>{},
{Yes}, {%newdir @getcdir;
case (@nochar(newdir)==3,
{Yes}, {newfile:=newdir|newfile},
{No}, {newfile:=newdir|{\}|newfile});
delfile(newfile);
write(newfile,{PCVAN :=}|
@xc({7b})|PCVAN|@xc({7d})|{;\n});});
setcdir(DIR1);
};
/* ファイルから設定情報を読み込む */
%LOAD{
var newfile[64];
SNDMSG({nyuryo_f.snd});
footnote({設定を読み込むファイルを指定して下さい});
newfile:=@filesel({VAN});
case (newfile<>{},
{Yes}, {%newdir @getcdir;
case (@nochar(newdir)==3,
{Yes}, {newfile:=newdir|newfile},
{No}, {newfile:=newdir|{\}|newfile});
case (@filechk(newfile),
{Yes}, {%ExcPilot {#}|newfile;
ExcPilot;
setcdir(DIR1);
SETFILE2:=@tail(newfile,{\});});});
setcdir(DIR1);
};
/* PC-VANで行う処理を設定する */
%setPCVAN{
PCVAN:=@getline(PCVAN,1,24);
loop({
NOLINE:=0;
NOLINE2:=1;
PcVan:={};
d:=1;
check:={No};
SNDMSG({erande_f.snd});
case(PCVAN={},{No},{pcvan});
footnote({PC-VANで行う処理を指定して下さい});
%a @plane(
{cPC-VANで行う処理を指定して下さい\n}|
PcVan|
{s / 新 規 登 録 \n}|
{s/ 順 序 変 更 / 元の設定にもどす \n}|
{s/ 設定をファイルに保存 / ファイルから設定を読込 \n}|
{s/ 設定を保存して終了 / 保存しない(一時的な変更) \n});
case (PcVan={},
{No},
{loop({
case (@head(@getline(a,NOLINE2,1),{\n}),
{ 1}, {setVAN(NOLINE2*2-1);check:={Yes};im({No})},
{ 2}, {setVAN(NOLINE2*2);check:={Yes};im({No})},,
{case (NOLINE2,
NOLINE, {im({No})},,
{NOLINE2:=NOLINE2+1;im({Yes})})});
})});
%sel1 @head(@getline(a,NOLINE+1,1),{\n});
%sel2 @head(@getline(a,NOLINE+2,1),{\n});
%sel3 @head(@getline(a,NOLINE+3,1),{\n});
%ok @head(@getline(a,NOLINE+4,1),{\n});
case (sel1,
{ 1},{case (NOLINE>11&&d==1,
{Yes},
{footnote({これ以上追加登録できません});
wait(2)},
{No},
{case(d,2,{setVAN1(NOLINE*2)},
1,{setVAN1(NOLINE*2+1)})})});
case(sel2,{ 1},{renVAN},{ 2},{CANCEL});
case(sel3,{ 1},{SAVE},{ 2},{LOAD});
case(ok,{ 1}, {writeVAN;im({No})},
{ 2}, {SETFILE2:={一時設定};im({No})},,
{case (ok={ 0}&&sel1={ 0}&&sel2={ 0}&&
sel3={ 0}&&check={No},
{Yes},{im({No})},{No},{im({Yes})})});
});
};
/* 実行 */
var PcVan[1000];
var PcVan2[1000];
var PcVan3[1000];
var NOLINE[2];
var NOLINE2[2];
var NOLINE3[2];
var check[3];
var d[1];
setPCVAN;